home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.3
/
Video Toaster v4.3.iso
/
3.1
/
toasterall
/
arexx_examples
/
tpaint
/
ots.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-05-13
|
1KB
|
36 lines
/* OTS.rexx -- Make Pic into over-the-shoulder */
/* © 1993 NewTek, Inc. by Arnie Cachelin */
if pos('DigiPaint',show(ports))=0 then do
say "Can't find ToasterPaint!"
exit
end
Address "DigiPaint" /* Tell ARexx where commands go */
call mapscreen(420,100,608,220)
'Shco' /* Render to composite out */
exit
MapScreen: PROCEDURE /* Size full screen into rectangle with corners at (x1,y1) and (x2,y2) */
arg x1, y1, x2, y2 /* rectangle is drawn on swap screen */
'Pmcl' /* Normal draw Mode */
'Maxc' /* Set center transparency off */
'Maxe' /* Set edge transparency off */
'Flon' /* Fill On */
'Bdel' /* Delete swap brush */
'Dotb' /* Delete any current cut-out brush */
'Drre' /* Draw Rectangles */
'Swap' /* Jump to (blank) swap screen! */
'Pend' x1 y1 /* Get in top Left corner */
'Penu' x2 y2 /* Lift pen at bottom right */
'Undo' /* Un-draw solid rectangle */
'Rubi' /* Internal Rub-Thru on... use picture in swap screen as source */
'Txma' /* Texture mapping on, since there is no brush, it will use whole screen */
'Txva' $0010
'Tyva' $0010
'Redo' /* Re-draw rectangle, this time with texture map of swap screen */
'Flof' /* Fill off */
'Pmcl' /* Normal draw Mode */
return 0